home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 2
/
CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso
/
magazine
/
amiga_e
/
ged-e
/
ged_guideref2front.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-11-03
|
711b
|
21 lines
/* $VER: 0.9, ©1994 BURGHARD Eric. */
/* Autodocs Help Window to front */
options results /* enable return codes */
/* not started by GoldEd ? */
if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
'LOCK CURRENT QUIET' /* lock GUI, gain access */
if rc then exit
options failat 6 /* ignore warnings */
signal on syntax /* ensure clean exit */
if show('P','AUTODOCS') then ADDRESS AUTODOCS 'windowtofront'
'UNLOCK'
exit
syntax:
say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
exit